Lot-X1 names an undocumented function, with lambda list (OBJECT).
(SETF Lot-X1) names an undocumented function, with lambda list (NEW-VALUE OBJECT).